home *** CD-ROM | disk | FTP | other *** search
/ Apple Product Training 1991 Spring / Apple-Training-Spring-1991.iso / Archives / Scanner Training / Examples / Examples / card_8927.txt < prev    next >
Encoding:
Text File  |  1988-07-15  |  3.6 KB  |  141 lines
  1. -- card: 8927 from stack: in
  2. -- bmap block id: 2881
  3. -- flags: 0000
  4. -- background id: 4709
  5. -- name: Examples
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menuBar
  9.   hide card field "Message Center"
  10.   put "Please click on the item name to see an example." into card field "Define Message"
  11.   show card field "Define Message"
  12.   set hilite of background button "Examples" to true
  13.   set hilite of background button "Market Needs" to false
  14.   ResetMenuField
  15. end openCard
  16.  
  17. on mouseUp
  18.   show card field "Define Message"
  19. end mouseUp
  20.  
  21.  
  22. on closeCard
  23.   hide card field "Message Center"
  24.   hide card field "Define Message"
  25. end closeCard
  26.  
  27. on ResetMenuField
  28.   put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
  29. end ResetMenuField
  30.  
  31.  
  32.  
  33.  
  34. -- part 18 (field)
  35. -- low flags: 81
  36. -- high flags: 0004
  37. -- rect: left=38 top=269 right=307 bottom=184
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 0
  41. -- font id: 3
  42. -- text size: 10
  43. -- style flags: 0
  44. -- line height: 13
  45. -- part name: Message Center
  46.  
  47.  
  48. -- part 19 (field)
  49. -- low flags: 01
  50. -- high flags: 0000
  51. -- rect: left=35 top=235 right=265 bottom=188
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 9
  57. -- style flags: 0
  58. -- line height: 12
  59. -- part name: Define Message
  60.  
  61.  
  62. -- part 46 (field)
  63. -- low flags: 01
  64. -- high flags: 2004
  65. -- rect: left=26 top=76 right=233 bottom=192
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 3
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Select Field
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   global whichExample,showState
  77.   put empty into whichExample
  78.   put empty into showState
  79.   put 1 + (the clickV - top of me) div textHeight of me into clickLine
  80.   if line clickLine of me is not empty then
  81.     put word 1 of line clickLine of card field "Select Field" into whichExample
  82.     put "‚Ä¢" into char 1 of line clickLine of card field "Select Field"
  83.     push card
  84.     visual dissolve to card
  85.     go to card whichExample
  86.   else
  87.     if line clickLine of me is not empty and whichExample is "Science &" then
  88.       push card
  89.       visual dissolve to card
  90.       go to card "Science & Engineering"
  91.     else
  92.       if line clickLine of me is not empty and whichExample is "HyperCard Stack" then
  93.         push card
  94.         visual dissolve to card
  95.         go to card "HyperCard Stack"
  96.       end if
  97.     end if
  98.   end if
  99. end mouseUp
  100.  
  101. on ResetMenuField
  102.   put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
  103. end ResetMenuField
  104.  
  105.  
  106.  
  107.  
  108. -- part 47 (field)
  109. -- low flags: 01
  110. -- high flags: 0001
  111. -- rect: left=362 top=274 right=310 bottom=490
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: 
  120.  
  121.  
  122. -- part contents for card part 19
  123. ----- text -----
  124. Please click on the item name to see an example.
  125.  
  126. -- part contents for card part 18
  127. ----- text -----
  128. Please try again.
  129.  
  130. -- part contents for card part 46
  131. ----- text -----
  132.  Newsletters
  133.  Graphic Design
  134.  Illustrations
  135.  Presentations
  136.  Document Processing
  137.  Databases
  138.  Brochures
  139.  Image Transmission
  140.  Manuals
  141.